<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/connopen.asp"-->
<!--#include file="lib/asp-json-lib.asp"-->
<!--#include file="lib/asp-common-lib.asp"-->

<%
'EOC监控系统
'[["2011/3/11",20],["2011/3/10",1],["2011/3/9",1],["2011/3/2",2],["2011/3/1",1]]
' if not CheckPostFlag(session("aaPostFlag"),1,3) then call JumpErrorPage(2)
Response.ContentType = "application/json"
dim json,rs,sql
set json=jsObject()
set json("aaData") = jsArray()
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from rrp order by balive,ndip"
rs.Open sql,conn,1,1
do while not rs.eof
  set json("aaData")(Null) = jsArray()
  json("aaData")(Null)(Null)=rs("neid")
  json("aaData")(Null)(Null)=rs("ndid")
  json("aaData")(Null)(Null)=rs("ndip")
  json("aaData")(Null)(Null)=rs("srpmac")
  json("aaData")(Null)(Null)=rs("dtpoll")
  json("aaData")(Null)(Null)=rs("dtlog")
  json("aaData")(Null)(Null)=rs("balive")
  json("aaData")(Null)(Null)=rs("isnmp")
  rs.movenext
loop
rs.close
set rs=nothing
json.Flush
%>
<!--#include file="lib/connclose.asp"-->